YAML: module {
	
	PATH:	con "/appl/lib/yaml.dis";

	YValue: adt {	
		
		pick {
				
			Map =>
				
				data:	cyclic list of (string, ref YValue);				
			Seq =>
				
				data:	cyclic array of ref YValue;																
			Str =>
				
				value:	string;			
			Big =>
				
				value:	big;						
			True =>
			False =>	
			Null =>
		}

		text:	fn(y: self ref YValue): string;
		parse:	fn(s: string): (ref YValue, string);
		get:	fn(y: self ref YValue, k: string): (ref YValue);	
	};	

	init:	fn();
};	